home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 14 / Hot Mix 14.iso / HTML / vendors / 3Name3D / catalog_2.pl < prev    next >
Perl Script  |  1996-07-22  |  10KB  |  179 lines
  1. #! /usr/local/bin/perl
  2.  
  3. $MY_SERVER = "www.ywd.com";
  4.  
  5. if ($ENV{'HTTP_REFERER'}) {
  6.     $oldpath = $ENV{'HTTP_REFERER'};
  7.     if (index($oldpath,$MY_SERVER) > -1){
  8.         $lastslash = rindex($oldpath,"/");
  9.         $pathback = substr($oldpath,$lastslash + 1);
  10.     }
  11. }
  12.  
  13. #  -------------------------------------------------------------------------------
  14. print "Content-type: text/html\n\n";
  15.  
  16. print "<HEAD>\n<TITLE>\"Catalog Request\"</TITLE>\n<LINK REV=\"made\" HREF=\"mailto:cindy\@shark.ywd.com\">\n</HEAD>\n";
  17. print "<BASEFONT SIZE=4><body bgcolor=\"#37DDF5\" link=\"#960020\" vlink=\"#110094\" alink=\"#FF5AF6\">\n\n";
  18.  
  19. print "<A HREF=\"http://$MY_SERVER/index.html\"><img align=right border=\"0\" WIDTH=\"128\" HEIGHT=\"128\" src=\"http://$MY_SERVER/ywd-1a.gif\"></A>\n";
  20.  
  21. print "<H1>Want to Learn More?</H1>\n";
  22. print "<FONT SIZE=\"5\">You can request a catalog or more information by calling <B>1-800-YWD-INC1</B></FONT><BR>\n";
  23. print "<FONT SIZE=\"4\">(that's 1-800-993-4621)</FONT><BR>\n";
  24. print "Or you can reach us by calling 310-314-2171<BR>\n";
  25. print "Or you can fax us at 310-314-2181<BR>\n";
  26. print "Or you can send e-mail to <A HREF=\"mailto:info\@ywd.com\">info\@ywd.com</A><BR>\n";
  27. print "Or you can take a few minutes and fill out this form ...\n";
  28.  
  29. print "<FORM METHOD=\"POST\" ACTION=\"/cgi-bin/uncgi/mymail_2.pl\">\n";
  30.  
  31. print "<IMG ALIGN=\"left\" hspace=\"15\" vspace=\"1\" SRC=\"http://$MY_SERVER/dot_clear.gif\">\n";
  32. print "<TABLE CELLSPACING=\"1\">\n";
  33. print "<TR><TH ALIGN=\"right\">Name:</TH><TD COLSPAN=\"3\"><INPUT TYPE=\"text\" NAME=\"Name\" SIZE=\"30\"></TD></TR>\n";
  34. print "<TR><TH ALIGN=\"right\">Title:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"Title\" SIZE=\"30\"></TD></TR>\n";
  35. print "<TR><TH ALIGN=\"right\">Company:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"Company\" SIZE=\"30\"></TD></TR>\n";
  36. print "<TR><TH ALIGN=\"right\">Address:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"Addrs\" SIZE=\"30\"></TD></TR>\n";
  37. print "<TR><TH ALIGN=\"right\">City:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"City\" SIZE=\"30\"> </TD></TR>\n";
  38. print "<TR><TH ALIGN=\"right\">State:</TH><TD><INPUT NAME=\"State\" SIZE=\"11\"></TD><TH ALIGN=\"right\">Zip:</TH><TD><INPUT NAME=\"zip\" SIZE=\"13\"></TD></TR>\n";
  39. print "<TR><TH ALIGN=\"right\">Country:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"Country\" SIZE=\"30\"></TD></TR>\n";
  40. print "<TR><TH ALIGN=\"right\">phone:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"Phone\" SIZE=\"30\"></TD></TR>\n";
  41. print "<TR><TH ALIGN=\"right\">fax:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"fax\" SIZE=\"30\"></TD></TR>\n";
  42. print "<TR><TH ALIGN=\"right\">email:</TH><TD COLSPAN=\"3\"><INPUT NAME=\"Email\" SIZE=\"30\"></TD></TR>\n";
  43. print "</TABLE>\n";
  44.  
  45. print "I would like to receive a Cyberprops <FONT SIZE=\"1\">TM</FONT> Catalog: \n";
  46. print "<INPUT TYPE=\"radio\" VALUE=\"Yes\" NAME=\"Wants_CP_Catalog\" SIZE=\"3\" checked>Yes\n";
  47. print "<INPUT TYPE=\"radio\" VALUE=\"No\" NAME=\"Wants_CP_Catalog\" SIZE=\"3\">No\n";
  48. print "<BR>\n";
  49. print "I would like to receive information about Custom Services: \n";
  50. print "<INPUT TYPE=\"radio\" VALUE=\"Yes\" NAME=\"Wants_cust_Model\" SIZE=\"3\">Yes\n";
  51. print "<INPUT TYPE=\"radio\" VALUE=\"No\" NAME=\"Wants_cust_Model\" SIZE=\"3\">No\n";
  52. print "<HR>\n";
  53.  
  54. print "<FONT SIZE=\"3\">Please help us to better meet your needs by completing this survey</FONT><BR>\n";
  55. print "<BR>\n";
  56. print "<B>1. My job function is: </B><SELECT NAME=\"Function\">\n";
  57. print "<OPTION>Pull down to select\n";
  58. print "<OPTION>Management\n";
  59. print "<OPTION>Marketing\n";
  60. print "<OPTION>Modeler\n";
  61. print "<OPTION>Animator\n";
  62. print "<OPTION>Production Artist\n";
  63. print "<OPTION>Programmer\n";
  64. print "<OPTION>Technical Director\n";
  65. print "<OPTION>Creative Director\n";
  66. print "<OPTION>Advanced Amateur\n";
  67. print "<OPTION>Other \n";
  68. print "</SELECT>\n";
  69. print "<BR>\n";
  70.  
  71. print "<B>2. My business is: </B><SELECT NAME=\"Business\">\n";
  72. print "<OPTION>Pull down to select\n";
  73. print "<OPTION>Film/Video\n";
  74. print "<OPTION>MultiMedia\n";
  75. print "<OPTION>Games\n";
  76. print "<OPTION>Virtual Reality\n";
  77. print "<OPTION>Electronic Publishing\n";
  78. print "<OPTION>Fine Art\n";
  79. print "<OPTION>Architecture\n";
  80. print "<OPTION>Engineering\n";
  81. print "<OPTION>Forensics\n";
  82. print "<OPTION>Interactive TV\n";
  83. print "<OPTION>Education\n";
  84. print "<OPTION>Other\n";
  85. print "</SELECT>\n";
  86. print "<P>\n";
  87.  
  88. print "<B>3. My 3D Environment: (Check all that apply)</B>\n";
  89. print "<DL>\n";
  90. print "<DD><B>I use the following 3D Software:</B>\n";
  91. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Wavefront\"> Wavefront ";
  92. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Alias\"> Alias ";
  93. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Explore\"> Explore ";
  94. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"SoftImage\"> SoftImage ";
  95. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Vertigo\"> Vertigo<BR>\n";
  96. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"ElectroGIG\"> ElectroGIG ";
  97. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Houdini(Prisims)\"> Houdini(Prisims) ";
  98. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Nichimen(Symbolics)\"> Nichimen(Symbolics)<BR>\n";
  99. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"3D Studio\"> 3D Studio ";
  100. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Topas\"> Topas ";
  101. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"Lightwave\"> Lightwave ";
  102. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"FormZ\"> FormZ<BR>\n";
  103. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"StrataVision\"> StrataVision ";
  104. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"TrueSpace\"> TrueSpace ";
  105. print "<INPUT TYPE=\"checkbox\" NAME=\"3D_Software\" VALUE=\"AutoCAD\"> AutoCAD<BR>\n";
  106. print "<DD>Other <INPUT NAME=\"3D_Software\" SIZE=\"30\">\n";
  107. print "<P>\n";
  108.  
  109. print "<DD><B>I can read the following 3D file formats:</B>\n";
  110. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"File_Format\" VALUE=\"OBJ\"> OBJ ";
  111. print "<INPUT TYPE=\"checkbox\" NAME=\"File_Format\" VALUE=\"3DS\"> 3DS "; 
  112. print "<INPUT TYPE=\"checkbox\" NAME=\"File_Format\" VALUE=\"DXF\"> DXF "; 
  113. print "<INPUT TYPE=\"checkbox\" NAME=\"File_Format\" VALUE=\"DWG\"> DWG <BR>\n";
  114. print "<DD>Other <INPUT NAME=\"File_Format\" SIZE=\"30\">\n";
  115. print "<P>\n";
  116.  
  117. print "<DD><B>I do 3D on the following platform(s):</B>\n";
  118. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"DOS\"> DOS ";
  119. print "<INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"Windows_3.x\"> Windows 3.x ";
  120. print "<INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"Windows_95\"> Windows 95<BR>\n";
  121. print "<INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"Windows_NT\"> Windows NT ";
  122. print "<INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"UNIX\"> UNIX ";
  123. print "<INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"Mac\"> Mac ";
  124. print "<INPUT TYPE=\"checkbox\" NAME=\"Platform\" VALUE=\"Amiga\"> Amiga <BR>\n";
  125. print "<DD>Other <INPUT NAME=\"Platform\" SIZE=\"30\">\n";
  126. print "<P>\n";
  127.  
  128. print "<DD><B>I use the following storage media:</B>\n";
  129. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"Storage\" VALUE=\"CD-ROM\"> CD-ROM ";
  130. print "<INPUT TYPE=\"checkbox\" NAME=\"Storage\" VALUE=\"44MB_Syquest\"> 44MB Syquest ";
  131. print "<INPUT TYPE=\"checkbox\" NAME=\"Storage\" VALUE=\"4mm_DAT\"> 4mm DAT<BR>\n";
  132. print "<INPUT TYPE=\"checkbox\" NAME=\"Storage\" VALUE=\"150MB_QIC\"> 150MB Quarter Inch Cartridge ";
  133. print "<INPUT TYPE=\"checkbox\" NAME=\"Storage\" VALUE=\"Floppy\"> Floppy Disk<BR>\n";
  134. print "<DD>Other <INPUT NAME=\"Storage\" SIZE=\"30\">\n";
  135. print "</DL>\n";
  136.  
  137. print "<B>4. I read the following Publications: (Check all that apply)</B>\n";
  138. print "<DL>\n";
  139. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"Publications\" VALUE=\"Computer Graphics World\"> Computer Graphics World\n";
  140. print "<INPUT TYPE=\"checkbox\" NAME=\"Publications\" VALUE=\"Computer Artist\"> Computer Artist<BR>\n";
  141. print "<DD><INPUT TYPE=\"checkbox\" NAME=\"Publications\" VALUE=\"Morph's Outpost\"> Morph's Outpost\n";
  142. print "<INPUT TYPE=\"checkbox\" NAME=\"Publications\" VALUE=\"New Media\"> New Media\n";
  143. print "<INPUT TYPE=\"checkbox\" NAME=\"Publications\" VALUE=\"3D Artist\"> 3D Artist\n";
  144. print "<DD>Other <INPUT NAME=\"Publications\" SIZE=\"30\">\n";
  145. print "</DL>\n";
  146.  
  147. print "<B>5. I heard about 3Name3D <FONT SIZE=\"1\">TM</FONT> from... </B>\n";
  148. print "<DL>\n";
  149. print "<DD><INPUT NAME=\"Heard_About\" SIZE=\"35\">\n";
  150. print "</DL>\n";
  151.  
  152. # print "<BR>\n";
  153. # print "If secure on-line odering were available, would you use it?\n";
  154. # print "<INPUT TYPE=\"radio\" VALUE=\"Yes\" NAME=\"On_Line\" SIZE=\"3\">Yes\n";
  155. # print "<INPUT TYPE=\"radio\" VALUE=\"No\" NAME=\"On_Line\" SIZE=\"3\">No\n";
  156.  
  157. if ($pathback){
  158.     print "<INPUT TYPE=\"hidden\" NAME=\"Last_page\" VALUE=\"http://$MY_SERVER/$pathback\"><BR>\n";
  159. }
  160.  
  161. print "<INPUT TYPE=\"submit\" VALUE=\"Submit Catalog Request\"> <INPUT TYPE=\"reset\" VALUE=\"Clear All\">\n";
  162. print "</FORM>\n";
  163. print "<HR>\n";
  164. print "<FONT SIZE=\"5\">3Name3D </FONT><FONT SIZE=\"1\">TM</FONT><BR>\n";
  165. print "<FONT SIZE=\"5\">1202 W. Olympic Blvd., Suite 101<BR>Santa Monica, CA 90404<BR>\n";
  166. print "phone: 310-314-2171 fax: 310-314-2181</FONT><P>\n";
  167.  
  168. print "<A HREF=\"http://$MY_SERVER/index.html\"><B>Return to Home Page</B></A><BR>\n";
  169.  
  170. print "<HR SIZE=\"10\">\n";
  171. print "<address><FONT SIZE=\"3\">\n";
  172. print "Copyright © 1995 Yglesias Wallock Divekar, Inc., All Rights Reserved<BR>\n";
  173. print "Cyberprops and 3Name3D are trademarks of Yglesias Wallock Divekar, Inc.<BR>\n"; 
  174. print "All other names are trademarks or registered trademarks of their respective owners.<BR>\n";
  175. print "Please direct any comments or bug reports to: <A HREF=\"mailto:webmaster\@ywd.com\">webmaster\@ywd.com</A>\n";
  176. print "</FONT></ADDRESS>\n";
  177. print "</BODY></BASEFONT></HTML>\n";
  178.  
  179.